home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Documentation / WW3DKit / A_IntroWW3DKitExampleFiles / rotatingCylinder.wwModel / model.eve next >
Encoding:
Text File  |  1995-03-22  |  460 b   |  25 lines
  1. set roll 45
  2. set thetaMax 360
  3. set radius 1
  4. set zMin -1
  5. set zMax 2
  6.  
  7. startShape dynamicExample
  8.     EveCmd {Rotate $roll 1 0 0}
  9.     Disk $zMin $radius $thetaMax
  10.     Cylinder $radius $zMin $zMax $thetaMax
  11.     Disk $zMax $radius $thetaMax
  12. endShape
  13.  
  14. proc rotateIt {} {
  15.  
  16.     global  roll ticksPerSecond;
  17.  
  18.     set rollIncr [expr {180./$ticksPerSecond}]
  19.     for {set i 0} {$i <= $ticksPerSecond} {incr i} {
  20.         set roll [expr {$i * $rollIncr}];
  21.         synchWithScene
  22.     }
  23. }
  24.  
  25. loadControlPanel doIt.nib